*************************** VISUARRRAY ******************************
**   Visualiza arrays bidimensionales
**
*********************************************************************

static function visuarray(tabla, texto)
LOCAL i, j
cls

@00,00 say texto

for i := 1 to LEN (tabla)
   for j := 1 TO LEN(tabla[i])
      @i,j*10 say tabla[i,j]
   next
next
wait

return .t.


